home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 2: CDPD 1 / Almathera Ten on Ten - Disc 2: CDPD 1.iso / pd / 076-100 / 077 / samples / qfunc.d < prev    next >
Text File  |  1995-03-13  |  366b  |  24 lines
  1. bool PRINT = false;
  2.  
  3. int SIZE = 1000,
  4.     TIMES = 100;
  5.  
  6. [SIZE + 1] int A;
  7.  
  8. proc main()void:
  9.     int i, count;
  10.  
  11.     writeln("Starting..");
  12.     for count from 1 upto TIMES do
  13.     A[1] := 1;
  14.     A[2] := 2;
  15.     for i from 3 upto 1000 do
  16.         A[i] := A[i - A[i - 1]] + A[i - A[i - 2]];
  17.         if PRINT then
  18.         writeln(i, ' ', A[i]);
  19.         fi;
  20.     od;
  21.     od;
  22.     writeln("Done.");
  23. corp;
  24.